programaAsig([var,
                ent,var1,;,
                real,var2,;,
        fvar,
        inicio,
        var1,:=,206,+,9,'*','(',6,'+',9,')',;,
        var2,:=,'-',var1,'*',2,'+',9,;,
        var2,:=,0.003,;,
        fin]).

programaSiSino([var,
                ent,var1,;,
                real,var2,;,
        fvar,
        inicio,
        var1,:=,256,+,9,'*','(',6,'+',9,')',;,
        var2,:=,'-',var1,'*',2,'+',9,;,
        si,3,'<',2,entonces,
                var2,:=,0.003,;,
        sino,
                var2,:=,1.2,;,
        fin]).

programaSi([var,
                ent,var1,;,
                real,var2,;,
        fvar,
        inicio,
        var1,:=,256,+,9,'*','(',6,'+',9,')',;,
        var2,:=,'-',var1,'*',2,'+',9,;,
        si,3,'=',3,entonces,
                var2,:=,0.003,;,
        fin]).

programaSiAnidados([var,
                ent,var1,;,
                real,var2,;,
        fvar,
        inicio,
        var1,:=,256,+,9,'*','(',6,'+',9,')',;,
        var2,:=,'-',var1,'*',2,'+',9,;,
        si,3,entonces,
                si,4,entonces,
                        var2,:=,0.001,;,
                sino,
                        var2,:=,0.002,;,
        sino,
                si,5,entonces,
                        var2,:=,0.003,;,
                sino,
                        var2,:=,0.005,;,
        fin]).

programaMientras([var,
                ent,var1,;,
                real,var2,;,
        fvar,
        inicio,
        var1,:=,256,+,9,'*','(',6,'+',9,')',;,
        var2,:=,'-',var1,'*',2,'+',9,;,
        mientras,3,haz,
                var2,:=,0.003,;,
        fin]).

programaSiSinoMientras([var,
                ent,var1,;,
                real,var2,;,
        fvar,
        inicio,
        var1,:=,256,+,9,'*','(',6,'+',9,')',;,
        var2,:=,'-',var1,'*',2,'+',9,;,
        si,1,entonces,
                mientras,2,haz,
                        var2,:=,0.003,;,
        sino,
                mientras,3,haz,
                        var2,:=,0.004,;,
        fin]).

programaMientrasSiSino([var,
                ent,var1,;,
                real,var2,;,
        fvar,
        inicio,
        var1,:=,256,+,9,'*','(',6,'+',9,')',;,
        var2,:=,'-',var1,'*',2,'+',9,;,
        mientras,3,haz,
                si,4,entonces,
                        var2,:=,0.003,;,
                sino,
                        var2,:=,0.004,;,
        fin]).
programaArray([var,
                ent,'[',3,']',var1,;,
                real,'[',4,']',var2,;,
        fvar,
        inicio,
        var1,'[',0,']',:=,256,+,9,'*','(',6,'+',9,')',;,
        var2,'[',1,']',:=,'-',var1,'[',2,']','*',2,'+',9,;,
        var2,'[',3,']',:=,0.003,;,
        fin]).

programaPunt([var,
                ent,'^',var1,;,
                real,'^',var2,;,
        fvar,
        inicio,
        var1,'^',:=,256,+,9,'*','(',6,'+',9,')',;,
        var2,:=,'-',var1,'^','*',2,'+',9,;,
        var2,'^',:=,0.003,;,
        fin]).

programaRegistro([var,
                registro,'{',
                        ent,var1,;,
                        real,var2,;,
                '}',vreg,';',
        fvar,
        inicio,
        vreg,'.',var1,:=,256,+,9,'*','(',6,'+',9,')',;,
        vreg,'.',var2,:=,'-',vreg,'.',var1,'*',2,'+',9,;,
        vreg,'.',var2,:=,0.003,;,
        fin]).

programaTipos([var,
                registro,'{',
                        ent,var1,;,
                        real,'[',4,']',var2,;,
                '}',vreg,';',
                registro,'{',
                        ent,var1,;,
                        real,'^','[',4,']',var2,;,
                '}','^',vpreg,';',
        fvar,
        inicio,
        vreg,'.',var1,:=,256,+,9,'*','(',6,'+',9,')',;,
        vreg,'.',var2,:=,'-',vreg,'.',var1,'*',2,'+',9,;,
        vreg,'.',var2,'[',5,']',:=,0.003,;,
        vpreg,'^','.',var2,'[',2,']','^',:=,3,';',
        fin]).

programaOpRel([var,
                ent,var1,;,
                real,var2,;,
        fvar,
        inicio,
        si,var1,'<',256,+,9,'*','(',6,'+',9,')',entonces,
                var2,:=,'-',var1,'*',2,'+',9,;,
        mientras,var2,=,0.003,haz,
                inicio,
                        var1,:=,0,;,
                        var1,:=,1,;,
                fin,
        fin]).
